home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / share / demolar / Quark / data.z / QuarkXPress 4.0 Demo.exe / 0 / PSHD / 1008 < prev    next >
Text File  |  1998-01-08  |  797b  |  17 lines
  1. /setscr/setscreen load def
  2. /setscreen{xpdctopn/usrscr X setangl
  3.  [/setscr0 load/exec load/usrscr load/exec load nf{/neg load}if]cvx/setscr load end exec}B
  4. /crntscr/currentscreen load def
  5. /currentscreen{xpdctopn crntscr currentdict/usrscr known
  6.  {pop getangl/usrscr load}if end}B
  7. /currentcolorscreen where{pop
  8. /usrstr(usrscrx)def
  9. /setcscr/setcolorscreen load def
  10. /setcolorscreen{xpdctopn 3 -1 0{usrstr dup length 1 sub 3 -1 roll 48 add put
  11.  usrstr cvn X setangl[/setscr0 load/exec load usrstr cvn load/exec load
  12.  nf{/neg load}if]cvx 12 3 roll}for/setcscr load end exec}B
  13. /crntcscr/currentcolorscreen load def
  14. /currentcolorscreen{xpdctopn crntcscr currentdict/usrscr0 known
  15.  {3 -1 0{usrstr dup length 1 sub 3 -1 roll 48 add put pop getangl
  16.  usrstr cvn load 12 3 roll}for}if end}B}if
  17.